#-------------------------------------------------------------------------------
#
#	Name    : CConcepts
#	Purpose : This mode tries to match Impression's key bindings
#	Author  : Dag Hkon Myrdal (dhmyrdal@pvv.unit.no)
#	Licence : 
#	Version : 
#
#-------------------------------------------------------------------------------
#
# This mode implements changes to the keys used in StrongED to match
# to some extent the ones chosen by CC in Impression.
#
#------------------------------------------------------------------------------
# Changes:
# 14.01.99 Commented out the ^@ and ^_ key bindings, as KeyExtend can't do them
#------------------------------------------------------------------------------
KeyList
#	^A 1		DeleteRight
#	^A 2		MarkWord  CB_Copy  MarkWord  BlockDelete
#	^A 3		MarkLine  CB_Copy  MarkLine  BlockDelete
	^B		InsertStr("{BaseStyle on}")
	^C		CB_Copy  BlockClear
	^D 1		MarkWord CB_Copy MarkWord BlockDelete
	^E		InsertStr("{Kern+}")
	^F		InsertStr("{Spell}")
	^G		InsertStr("{NextFrame}")
	^H		DeleteLeft
	^I		CreateView	#should have been insertframe...
	^J		InsertStr("{VKern+}")
	^K		BlockDelete
	^L		DeleteLine
	^N		PageDown
	^O		BlockMark_Continous InsertStr("{Toggle Frame outline}") 
	^P		PageUp
	^Q 1		MarkWord
	^Q 2		MarkToEnd_tl
	^Q 3		MarkLine
	^Q 4		MarkText
	^R		InsertStr("{Kern-}")
	^S		SwapcaseChar
	^T		MarkText
	^U		InsertStr("{VKern-}")
	^V		CB_Paste
	^W		MarkWord
	^X		CB_Copy  BlockDelete
	^Z 1		BlockClear
	^Z 2		CB_Purge
#	^@		StartOfTLine  MarkToEnd_tl

	^A		BlockMark_Continous InsertStr("{AlterChapter}") 
	^B		NextWindow	;should have been "put to back"
	^C		KillView
	^D 1		DateAndTime("%DY.%MN.%YR")
	^D 2		DateAndTime ("%24:%MI")
	^E		InsertStr("{Ruler }")
	^F		InsertStr("{EmbedFrame}")
	^G		dbox_GotoLine
	^H		InsertStr("")
	^I		InsertStr("{tab}")
	^J		InsertStr("{Script Super}")
	^K		InsertStr("{Script Sub}")
	^L		InsertStr("{LineSpacing}")
	^N		InsertStr("{New ruler }")
	^P		BlockMark_Continous InsertStr("{toggle PageRulers}") 
	^Q		Transpose(-1)
	^R		BlockMark_Continous InsertStr("{InsertRepeatFrame}") 
	^S 1		InsertStr("{fontsize}")
	^S 2		InsertStr("{font}")
	^T		dbox_SaveText
	^U		InsertStr("{underline}")
	^W		dbox_GotoLine
	^Z		KillView
#	^_		InsertStr("")

#	^C		BlockCopy
	^V		BlockMove
#	^X		BlockDelete
#	^Z		BlockClear

	Insert		CB_Paste
	BackSpace	DeleteLeft
	Delete		DeleteLeft
	Copy		DeleteRight
	PgUp		PageUp
	PgDown		PageDown
	Home		StartOfText
	Print		Print
#	Print		PrintBlock

	F1 1		InsertStr("{\"Main Heading\" on}")
	F1 2		InsertStr("{\"Main Heading\"}")
	F2 1		InsertStr("{\"Sub-Heading\" on}")
	F2 2		InsertStr("{\"Sub-Heading\"}")
	F5		InsertStr("{justify left}")
	F6		InsertStr("{justify centre}")
	F7		InsertStr("{justify right}")
	F8		InsertStr("{justify full}")
	F9 1		InsertStr("{\"Italic\" on}")
	F9 2		InsertStr("{\"Italic\"}")
	F10 1		InsertStr("{\"Index\" on}")
	F10 2		InsertStr("{\"Index\"}")
	^F4 1		InsertStr("{\"Bold\" on}")
	^F4 2		InsertStr("{\"Bold\"}")
	^F10 1		InsertStr("{\"Hanging indent\" on}")
	^F10 2		InsertStr("{\"Hanging indent\"}")
End
